home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Oberon / source / amiga / Bullet.mod < prev    next >
Text File  |  1995-06-29  |  2KB  |  85 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: Bullet.mod $
  4.   Description: Interface to bullet.library
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.7 $
  8.       $Author: fjc $
  9.         $Date: 1995/06/04 23:13:14 $
  10.  
  11.   $VER: bullet_protos.h 38.0 (19.6.92)
  12.   Includes Release 40.15
  13.  
  14.   (C) Copyright 1990-1993 Commodore-Amiga, Inc.
  15.       All Rights Reserved
  16.  
  17.   Oberon-A Interface Copyright © 1994-1995, Frank Copeland.
  18.   This file is part of the Oberon-A Interface.
  19.   See Oberon-A.doc for conditions of use and distribution.
  20.  
  21. *************************************************************************)
  22.  
  23. <* STANDARD- *>
  24.  
  25. MODULE [2] Bullet;
  26.  
  27. IMPORT SYS := SYSTEM, Kernel, e := Exec, u := Utility, df := DiskFont;
  28.  
  29.  
  30. (**-- Library Base variable --------------------------------------------*)
  31.  
  32. CONST
  33.  
  34.   bulletName * = "bullet.library";
  35.  
  36. VAR
  37.  
  38.   base* : e.LibraryPtr;
  39.  
  40.  
  41. (**-- Library Functions ------------------------------------------------*)
  42.  
  43. PROCEDURE OpenEngine* [base,-30] ()
  44.   : df.GlyphEnginePtr;
  45. PROCEDURE CloseEngine* [base,-36]
  46.   ( glyphEngine [8] : df.GlyphEnginePtr );
  47. PROCEDURE SetInfoA* [base,-42]
  48.   ( glyphEngine [8] : df.GlyphEnginePtr;
  49.     tagList     [9] : ARRAY OF u.TagItem )
  50.   : BOOLEAN;
  51. PROCEDURE SetInfo* [base,-42]
  52.   ( glyphEngine [8]  : df.GlyphEnginePtr;
  53.     tagList     [9]..: u.Tag )
  54.   : BOOLEAN;
  55. PROCEDURE ObtainInfoA* [base,-48]
  56.   ( glyphEngine [8] : df.GlyphEnginePtr;
  57.     tagList     [9] : ARRAY OF u.TagItem )
  58.   : BOOLEAN;
  59. PROCEDURE ObtainInfo* [base,-48]
  60.   ( glyphEngine [8]  : df.GlyphEnginePtr;
  61.     tagList     [9]..: u.Tag )
  62.   : BOOLEAN;
  63. PROCEDURE ReleaseInfoA* [base,-54]
  64.   ( glyphEngine [8] : df.GlyphEnginePtr;
  65.     tagList     [9] : ARRAY OF u.TagItem )
  66.   : BOOLEAN;
  67. PROCEDURE ReleaseInfo* [base,-54]
  68.   ( glyphEngine [8]  : df.GlyphEnginePtr;
  69.     tagList     [9]..: u.Tag )
  70.   : BOOLEAN;
  71.  
  72. (**-- Library Base variable --------------------------------------------*)
  73.  
  74. (**-----------------------------------*)
  75. PROCEDURE* [0] CloseLib (VAR rc : LONGINT);
  76.  
  77. BEGIN (* CloseLib *)
  78.   IF base # NIL THEN e.CloseLibrary (base) END
  79. END CloseLib;
  80.  
  81. BEGIN
  82.   base := e.OpenLibrary (bulletName, e.libraryMinimum);
  83.   IF base # NIL THEN Kernel.SetCleanup (CloseLib) END
  84. END Bullet.
  85.